home *** CD-ROM | disk | FTP | other *** search
/ Aminet 51 / Aminet 51 (2002)(GTI - Schatztruhe)[!][Oct 2002].iso / Aminet / util / misc / gpatch.lha / GPatch / ExampleScripts / GCompareAdd < prev    next >
Encoding:
AmigaDOS Script File  |  1998-11-21  |  707 b   |  28 lines
  1. .key old/A,new/A,patch/A,a4,a5,a6,a7,a8,a9,a10
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: GCompareAdd 2.6 (18.11.98)
  6.  
  7. ; This script adds the patch data for a new version of a file ("new") to
  8. ; the patch file ("patch"). The old file ("old") must be the oldest version
  9. ; of the file. You have only to archive this version and can build all other
  10. ; versions from it.
  11.  
  12. if exists {patch}
  13.  
  14.     ; build last version
  15.     GPatch "{old}" "{patch}" T:previousversion{$$} recursive
  16.  
  17.     ; add new version
  18.     GCompare T:previousversion{$$} "{new}" "{patch}" {a4} {a5} {a6} {a7} {a8} {a9} {a10}
  19.  
  20.     delete >nil: T:previousversion{$$}
  21. else
  22.  
  23.     ; create patchfile (first usage)
  24.     GCompare "{old}" "{new}" "{patch}" {a4} {a5} {a6} {a7} {a8} {a9} {a10}
  25.  
  26. endif
  27.  
  28.